home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-06
/
segue.exe
/
NSPLSRV.PRG
< prev
next >
Wrap
Text File
|
1991-10-29
|
2KB
|
55 lines
*.............................................................................
*
* Program Name: NSPLSRV.PRG Copyright: HRF Associates, Inc.
* Date Created: 10/28/11 Language: Clipper
* Time Created: 23:57:54 Author: Bob Fogle
*
*.............................................................................
* Supplemental SEGUE function for seting or resetting target server for spooling.
* Functionally equivilent to N_SPLSRV function in NETLIB library.
*
FUNCTION NSPLSRV_
* Purpose: To select the capture spool queue for the currently selected printer.
* Usage : NSPLSRV_([<expC>|OFF])
* :
* Where : <expC> = Server name.
* : OFF resets spool server to current server.
* :
PARAMETERS srvr
LOCAL msrvr, fsnames[0]
PRIVATE rtn :=0
do while .t.
* Check to make sure passed variable types are correct.
if valtype(srvr)<>'C' .AND. srvr<>nil
rtn = -101
exit
endi
* Set up defaults
msrvr = if(valtype(srvr)=='C', uppe(alltrim(srvr)),nil)
* Build file server names array.
mstr = WEFSNM() // Get File Server Name Table
for i=1 to 8
mpos=at(' ',mstr)
aadd(fsnames, if(mpos=0, mstr, subs(mstr,1,mpos-1))) // Server Name
mstr= if(mpos=0, '', subs(mstr,mpos+1))
next
* Get/Set server
if pcount()=0 // If no arguments, return current setting.
mfsno = PRJBDFG(20) // Get Default Print Job Flags (Server Queuing Print Job - Slot number 1-8)
mfsno = if(mfsno=0,WEFSPFG(),mfsno) // Get Preferred Connection ID
rtn = fsnames[mfsno] // File server name array element.
else
* Scan array of server names for match
mfsno = if(msrvr="OFF",0, ascan(fsnames,msrvr)) // Element number = server number
* If no match, Preferred server = 0 which defaults to default server.
rtn = WEFSPFS(mfsno) // Set Preferred Connection ID
endi
exit
endd
RETURN rtn